From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 5 Jan 2004 13:58:18 +0000 (+0000)
Subject: (ange-ftp-file-attributes):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24576
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=be7dadffec2594e43aa7b55d81ce443cd76d500c;p=emacs.git

(ange-ftp-file-attributes):
Pass 2 args to ange-ftp-real-file-attributes only if ID-FORMAT non-nil.
---

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 0277bd0aabc..8e1068a5bed 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3468,7 +3468,9 @@ system TYPE.")
 		      inode		;10 "inode number".
 		      -1		;11 device number [v19 only]
 		      ))))
-      (ange-ftp-real-file-attributes file id-format))))
+      (if id-format
+	  (ange-ftp-real-file-attributes file id-format)
+	(ange-ftp-real-file-attributes file)))))
 
 (defun ange-ftp-file-newer-than-file-p (f1 f2)
   (let ((f1-parsed (ange-ftp-ftp-name f1))